home *** CD-ROM | disk | FTP | other *** search
/ Golf Digest's Best Places to Play / Golf Digest's Best Places to Play.iso / diamond / dbrs_ibm.dir / 00035_Script_ValuableScript < prev    next >
Text File  |  1995-05-15  |  3KB  |  94 lines
  1. on exitFrame
  2.   go to marker(0)+4
  3. end
  4.  
  5. on mouseDown
  6.   global revealCheck
  7.   set ButtonNum=the clickOn
  8.   if ButtonNum>0 then
  9.     set ButtonName=the name of cast (the castNum of sprite ButtonNum)
  10.     if (ButtonNum >1) and (ButtonNum < 8) and (revealCheck<5) then
  11.       DropRock(ButtonNum)  
  12.     end if
  13.     if chars(ButtonName,1,6) = "ToMain" then
  14.       if PressBtn(ButtonNum) then
  15.         AllPuppetsOff
  16.         go to marker(0)+5
  17.       end if
  18.     end if
  19.     if chars(ButtonName,1,4) = "Help" then
  20.       if PressBtn(ButtonNum) then
  21.         showHelp
  22.         puppetsprite ButtonNum, true
  23.         set the castNum of sprite ButtonNum to the number of cast (ButtonName)
  24.         puppetsprite ButtonNum, false
  25.       end if
  26.     end if
  27.   end if
  28. end mouseDown
  29.  
  30. on DropRock ButtonNum
  31.   global revealCheck
  32.   puppetsound 0
  33.   puppetsound "PickSound"
  34.   set ButtonName=the name of cast (the castNum of sprite ButtonNum)
  35.   if ButtonNum=2 then
  36.     DropRandomRock
  37.   else
  38.     set revealCheck to revealCheck+1
  39.     puppetsprite ButtonNum, true
  40.     put the locH of sprite ButtonNum into x
  41.     put the locV of sprite ButtonNum into y
  42.     repeat with i=1 to 20
  43.       set the locH of sprite ButtonNum to x+(Random(20)-10)
  44.       updateStage
  45.     end repeat
  46.     repeat while y<540
  47.       set y=y+1
  48.       set the locV of sprite ButtonNum to y
  49.       updateStage
  50.     end repeat
  51.     if revealCheck=5 then
  52.       set the cursor of sprite 2 to 0
  53.       updateStage
  54.       showCode
  55.     end if
  56.   end if
  57.   updateStage
  58. end WhatPick
  59.  
  60. on DropRandomRock
  61.   set shakerNum to Random(5)+2
  62.   puppetsprite shakerNum, true
  63.   puppetsprite 8,true
  64.   set shakerX to the locH of sprite shakerNum
  65.   set x to the mouseH
  66.   set y to the mouseV
  67.   set the locH of sprite 8 to x
  68.   set the locV of sprite 8 to y
  69.   set the castNum of sprite 8 to the number of cast ("RockRandom" & Random(3))
  70.   repeat with i=1 to 20
  71.     set the locH of sprite 8 to x+(Random(20)-10)
  72.     set the locH of sprite shakerNum to shakerX+(Random(20)-10)
  73.     updateStage
  74.   end repeat
  75.   set the locH of sprite shakerNum to shakerX
  76.   repeat while y<500
  77.     set y=y+1
  78.     set the locV of sprite 8 to y
  79.     updateStage
  80.   end repeat
  81. end
  82.  
  83. on showCode
  84.   puppetsound "FirstCutYeahSound"
  85.   puppetsprite 40, true
  86.   set the castNum of sprite 40 to the number of cast ("Code4")
  87.   updateStage
  88.   repeat while soundbusy(1)
  89.     nothing
  90.   end repeat
  91.   set the castNum of sprite 40 to the number of cast ("HelpDot")
  92.   puppetsprite 40, false
  93. end showCode
  94.